1 REM**********************************
2 REM*---------- LEKTION 1 -----------*
3 REM*--------------------------------*
4 REM*----- (W) BY ARNO FREISINGER ---*
5 REM*--------------------------------*
6 REM**********************************
10 POKE 53281 , 11 : POKE53280 , 11 : PRINT "[155]" : POKE 2050 , 1
15 SYS 42291 : POKE 46 , PEEK (35) : POKE 45 , PEEK (781) + 2 : CLR
20 PRINT"[147]"TAB(15)"TEACHMASTER"
30 PRINT""TAB(10)"(W) BY ARNO FREISINGER"
40 PRINT""TAB(11)"                    "
50 FOR I = 1 TO 2000 : NEXT
60 PRINT"[147]"TAB(15) "LEKTION 1"
70 FOR I = 1 TO 1000 : NEXT
80 REM
90 REM  GRUNDLAGEN ERKLAEREN
99 REM
100 PRINT"[147]ZUERST EIN PAAR GRUNDVORAUSSETZUNGEN"
110 PRINT"ZUM VERSTAENDNIS DIESES KURSES :"
120 PRINT"WARUM BRAUCHEN WIR MASCHINENSPRACHE ?"
130 PRINT"WO LIEGEN DIE VORTEILE VON MASCHINEN-"
140 PRINT"SPRACHE ?"
150 PRINT"MASCHINENSPRACHE BRAUCHEN WIR FUER DIE"
160 PRINT"SCHNELLE AUSFUEHRUNG VON PROGRAMMEN."
170 PRINT"DIE VORTEILE VON MASCHINENSPRACHE "
180 PRINT"LIEGEN IN DER BIS ZU 1000 MAL HOEHEREN"
190 PRINT"GESCHWINDIKEIT IM GEGENSATZ ZU BASIC."
220 PRINT""TAB(12)"TASTE DRUECKEN"
230 PRINT""TAB(18)"-1-"
240 GOSUB250:ON A GOTO 300 , 60
250 GETA$:IFA$=""THEN250
260 IF A$ = "Z" THEN A = 2 : GOTO 280
270 A = 1
280 RETURN
300 PRINT"[147]JEDES GUTE SPIEL BESTEHT AUS MASCHINEN-"
310 PRINT"SPRACHE."
320 PRINT"ICH GLAUBE, SIE SIND JETZT AUF DEN"
330 PRINT"GESCHMACK GEKOMMEN, DEN MASCHINENSPRACHE"
340 PRINT"BIETET.JETZT FANGEN WIR ABER LANGSAM"
350 PRINT"AN.FUER DIE PROGRAMMIERUNG VON ASSEMBLER"
360 PRINT"(DIES DER FACHAUSDRUCK FUER MASCHINEN-"
370 PRINT"SPRACHE)BRAUCHEN SIE EINEN ASSEMBLER,"
380 PRINT"EINEN REASSEMBLER ODER EINEN MONITOR."
390 PRINT"MIT MONITOR IST KEIN BILDSCHIRM"
410 PRINT""TAB(12)"TASTE DRUECKEN"
420 PRINT""TAB(18)"-2-"
430 GOSUB 250 : ON A GOTO 450 , 100
450 PRINT"[147]GEMEINT,SONDERN EIN PROGRAMM !"
460 PRINT"UNSER COMPUTER HAT EINEN 6510 CPU(MIKRO-"
470 PRINT"PROZESSOR).ER IST EIN 8 BIT PROZESSOR,"
480 PRINT"D.H.ER KANN 8 BITS VERARBEITEN."
490 PRINT"8 DIESER BITS GEBEN BEI UNSEREM COMPUTER"
500 PRINT"EIN BYTE.VON DIESEN BYTES HAT UNSER "
510 PRINT"COMPUTER 65536.DIES SAGT AUCH DER NAME"
520 PRINT"64'ER.DER NAME BESAGT, DASS UNSER"
521 PRINT"COMPUTER"
522 PRINT""TAB(12)"TASTE DRUECKEN"
525 PRINT""TAB(18)"-3-" : GOSUB 250 : ON A GOTO 530 , 300
530 PRINT"[147]1024*64 BYTES BESITZT.
540 [153]"ZURUECK ZU UNSEREN 8 BITS.SIE WERDEN"
550 [153]"ZU EINER ZAHL ZUSAMMEN GESETZT"
560 [153]"2^0+2^1+2^3+2^4+2^5+2^6+2^7.DIES ERGIBT"
570 [153]"EINE ZAHL VON 256.DIES BEDEUTET,DASS"
580 [153]"DER COMPUTER UM GROESSERE ZAHLEN WIE 256"
590 [153]"DARZUSTELLEN MEHRERE BYTES ZUSAMMEN-"
600 [153]"SETZEN MUSS.DIES TUT ER AUCH,ER ZIEHT"
610 [153]"ZWEI BYTES ZUSAMMEN, SO KANN ER ZAHLEN"
612 [153]""[163]12)"TASTE DRUECKEN"
615 [153]""[163]18)"-4-" : [141] 250 : [145] A [137] 620 , 450
620 [153]"LOADDARSTELLEN,VON 0-65535,DIES SIND"
630 [153]"WIEDER UNSERE 65536 BYTES.JETZT WISSEN"
640 [153]"WIR AUCH,WARUM WIR NICHT MEHR ALS "
650 [153]"65536 BYTES ZUR VERFUEGUNG HABEN."
660 [153]"DA UNSER COMPUTER NUR EINE ZAHL VON
670 PRINT"0-65535 DARSTELLEN KANN, KANN ER"
680 PRINT"AUCH NICHT MEHR BYTES UEBERSCHAUEN."
690 PRINT"JETZT WISSEN WIR ABER IMMER NOCH NICHT,"
700 PRINT"WIE WIR AUF DIE 65535 KOMMEN MIT NUR"
710 PRINT"ZWEI BYTES.GANZ EINFACH 2^0+2^1+2^2+2^3+"
740 PRINT""TAB(12)"TASTE DRUECKEN"
750 PRINT""TAB(18)"-5-" : GOSUB 250 : ON A GOTO 760 , 530
760 PRINT"[147]2^4+2^5+2^6+2^7+2^8+2^9+2^10+2^11+2^12+"
780 PRINT"2^13+2^14+2^15.DIESE METHODE IST SEHR"
790 PRINT"UMSTAENDLICH WIE SIE VIELEICHT SEHEN."
800 PRINT"ES GEHT AUCH EINFACHER : 256*256."
810 PRINT"SO ERHALTEN SIE WIEDER DIE ZAHL 65536."
820 PRINT"DA DAS ZAHLENSYTEM DES COMPUTERS BEI 0"
830 PRINT"ANFAENGT KOENNEN SIE BEI EINER EINGABE"
840 PRINT"HOECHSTENS DIE ZAHL 65535 EINGEBEN"
850 PRINT"DIESE ZWEI BYTES SIND IN LOW-UND HIGH-"
860 PRINT"BYTES AUFGETEILT WORDEN"
880 PRINT""TAB(12)"TASTE DRUECKEN"
890 PRINT""TAB(18)"-6-" : GOSUB 250 : ON A GOTO 900 , 620
900 PRINT"[147]ZUERST DAS UNTERE,DANN DAS OBERE."
910 PRINT"DIE ZAHL STEHT PRAKTISCH UMGEDREHT IM "
920 PRINT"SPEICHER.WIR WOLLEN JETZT ZUSAMMEN-"
930 PRINT"FASSEN, WAS WIR BIS JETZT GELERNT HABEN:"
940 PRINT"UNSER COMPUTER KANN 65536 BYTES UEBER-"
950 PRINT"WACHEN.DAS ZAHLENSYSTEM DES COMPUTERS"
960 PRINT"BEGINNT BEI 0 UND NICHT[146] MIT 1"
970 PRINT"IN EINEM BYTE KANN MAN NUR 8 BITS ZU-"
980 PRINT"SAMMENFASSEN.DIE GROESSTE ZAHL,DIE MAN"
990 PRINT"MIT EINEM BYTE DARSTELLEN KANN IST 255"
1050 PRINT""TAB(12)"TASTE DRUECKEN"
1060 PRINT""TAB(18)"-7-" : GOSUB 250 : ON A GOTO 1070 , 760
1070 PRINT"[147]VON 0 - 255, ALSO 256 VERSCHIEDENE"
1071 PRINT"WERTE."
1080 PRINT"JETZT DUERFTE IHNEN EIGENTLICH KLAR SEIN"
1090 PRINT",WIE DER COMPUTER ZAHLEN DARSTELLT."
1100 PRINT"DIESE LEKTION IST WICHTIG ZUM WEITEREN"
1110 PRINT"VERSTAENDNIS DIESES KURSES."
1120 PRINT""TAB(12)"TASTE DRUECKEN"
1130 PRINT""TAB(18)"-8-" : GOSUB 250 : ON A GOTO 1140 , 900
1140 PRINT"[147]DIES WAR DIE ERSTE LEKTION.GEBEN SIE"
1150 PRINT"NUN EIN,OB SIE EINE DATASETTE ODER EINE"
1160 PRINT"FLOPPY BESITZEN."
1200 F$="":INPUT"D[146] ODER F[146]";F$
1210 IF F$ = "D" THEN F=1 : GOTO 1240
1220 IF F$ = "F" THEN F=8 : GOTO 1240
1225 IF F$ = "" THEN END
1227 IF F$ = "Z" THEN 1070
1230 GOTO1200
1240 POKE2,F:POKE 46 , 8 : POKE 45 , 3 : POKE 2050 ,0 : LOAD"LEKTION 2",PEEK(2)